home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / program / ctlib100.zip / INSTALL.LZH / CTTREES.INT < prev    next >
Text File  |  1996-10-12  |  1KB  |  41 lines
  1. {**************************************************************************}
  2. {*  BitSoft Development, L.L.C.                                           *}
  3. {*  Copyright (C) 1995, 1996 BitSoft Development, L.L.C.                  *}
  4. {*  All rights reserved.                                                  *}
  5. {*  Base tree objects unit                                                *}
  6. {*  Version 1.3.6                                                         *}
  7. {**************************************************************************}
  8.  
  9. unit ctTrees;
  10.  
  11. {$X+}
  12.  
  13. interface
  14.  
  15. uses Objects, BsdTypes, Containr;
  16.  
  17. type
  18.   PTree = ^TTree;
  19.   TTree = object(TGraph)
  20.     function Degree : Word; virtual;
  21.     function Empty : Boolean; virtual;
  22.     function Height : Word; virtual;
  23.   end;  { TTree }
  24.  
  25. type
  26.   PStreamTree = ^TStreamTree;
  27.   TStreamTree = object(TTree)
  28.       Stream : PStream;
  29.       Offset : LongInt;
  30.       Root : Longint;
  31.     constructor Init (AStream : PStream);
  32.     constructor Open (AStream : PStream);
  33.     procedure Flush; virtual;
  34.     procedure ReadHeader; virtual;
  35.     procedure Reset; virtual;
  36.     procedure WriteHeader; virtual;
  37.   end; { TStreamTree }
  38.  
  39. implementation
  40. end.
  41.